files.el (project-find-settings-file): Change concat to expand-file-name.

diff --git a/lisp/files.el b/lisp/files.el
index 35c21b19da56ad6cf25cf9a8c8e2bd608ea2c810..ee5efe45627a9aad3de9138c92771f9773251452 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -3127,8 +3127,8 @@ Otherwise this returns nil."
        ((setq result (assoc dir project-directory-alist))
        ;; Nothing else.
        nil)
-       ((file-exists-p (concat dir ".dir-settings.el"))
-       (setq result (concat dir ".dir-settings.el")))
+       ((file-exists-p (expand-file-name ".dir-settings.el" dir))
+       (setq result (expand-file-name ".dir-settings.el" dir)))
        (t
        (setq dir (file-name-directory (directory-file-name dir))))))
     result))